home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iibind.inc < prev    next >
Encoding:
Text File  |  1998-09-16  |  3.5 KB  |  116 lines
  1. <% 
  2.  
  3. function getBinding(bindstr)
  4.  
  5.     Dim one, two, ia, ip, hn
  6.     
  7.     one=Instr(bindstr,":")
  8.     two=Instr((one+1),bindstr,":")
  9.     
  10.     ia=Mid(bindstr,1,(one-1))
  11.     ip=Mid(bindstr,(one+1),((two-one)-1))
  12.     hn=Mid(bindstr,(two+1))
  13.  
  14.     
  15.     getBinding=Array(ia,ip,hn)
  16. end function
  17.  
  18. ' Boolean value used only by iivs.asp (Web sites)
  19. Dim multibind
  20.  
  21. ' Included in iivs.asp (web) and iifvs.asp (ftp)
  22. '
  23. ' function writeBinding
  24. '
  25. ' Writes out the controls that display the service/sites IP and Port information.
  26. ' This function is shared by both web and ftp sites
  27. '
  28. ' DEFAULTPORT                 - defined differently by iivs.asp and iifvs.asp
  29. ' currentobj                - initialized in iivs.asp and iifvs.asp
  30. ' Session("vtype") = "svc"     - indicates that we are looking at the master properties
  31. '
  32. function writeBinding(fieldname,fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly)
  33.     On Error Resume Next 
  34.     
  35.     ' Common binding declarations - Web and Ftp sites
  36.     Dim aBinding, Binding, host, ipport, ipaddress, readonly
  37.  
  38.     ' Secure binding definitions - Ftp sites only
  39.     Dim aSecBinding, SecBinding, secport, j
  40.  
  41.     ' Get the bindings from our current object and set any defaults if necessary
  42.     aBinding=currentobj.ServerBindings
  43.  
  44.     if Session("vtype") = "svc" then
  45.         multibind = false
  46.         readonly = true
  47.         Binding=split(aBinding(0),":")        
  48.     else
  49.         if aBinding(0) <> "" then
  50.             multibind=(UBound(aBinding)>0)
  51.             readonly = multibind
  52.             Binding=split(aBinding(0),":")
  53.         else
  54.             readonly=false
  55.             aBinding(0)=":" & DEFAULTPORT & ":"
  56.             Binding=split(aBinding(0),":")
  57.         end if
  58.     end if
  59.  
  60.     ' Write out the binding for a specific fieldname
  61.     if fieldname="Host" then
  62.         host=Binding(2)
  63.         if readonly then
  64.             writeBinding=host & inputbox(err,"hidden","hdnHost",host,fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly,False)                
  65.         else
  66.             writeBinding=inputbox(err,"hidden","hdnHost",host,fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly,False)
  67.         end if
  68.  
  69.     elseif fieldname="IPPort" then
  70.         ipport=Binding(1)
  71.  
  72.         if readonly then
  73.             if ipport="" then
  74.                 ipport=DEFAULTPORT
  75.             end if            
  76.             writeBinding=ipport & inputbox(err,"hidden","hdnPort",ipport,fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly,False)                
  77.         else            
  78.             writeBinding=inputbox(err,"TEXT","hdnPort",ipport,fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly,False)
  79.         end if
  80.  
  81.     elseif fieldname="IPAddress" then
  82.         ipaddress=Binding(0)
  83.         if ipaddress="" then
  84.             ipaddress=L_ALLUNASSIGNED_TEXT
  85.         end if            
  86.         if readonly then                                
  87.             writeBinding=ipaddress & inputbox(err,"hidden","hdnIPA",ipaddress,fieldsize,onchangeproc,onfocusproc, onblurproc,True,adminonly,False)                
  88.         else
  89.             writeBinding=inputbox(err,"TEXT","hdnIPA",ipaddress,fieldsize,onchangeproc,onfocusproc, onblurproc,True,adminonly,False)
  90.         end if
  91.  
  92.     elseif fieldname="SecureBinding" then
  93.         ' This only applies to Web sites
  94.         secPort=""
  95.         aSecBinding=currentobj.SecureBindings
  96.         if aSecBinding(0) <> "" then 
  97.         arraybound=UBound(aSecBinding)            
  98.         for j=0 to arraybound
  99.             SecBinding=split(aSecBinding(0),":")
  100.             if SecBinding(0)=Binding(0) then
  101.                 secPort=SecBinding(1)
  102.                 exit for
  103.             end if
  104.         Next
  105.         end if 
  106.  
  107.         if readonly then
  108.             writeBinding=secPort & inputbox(err,"hidden","hdnSecBinding",secPort,fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly,False)
  109.         else
  110.             writeBinding=inputbox(err,"TEXT","hdnSecBinding",secPort,fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly,False)
  111.         end if 
  112.  
  113.     end if
  114. end function
  115.  
  116.  %>